﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="添加消息"><p align="left">

	消息类型：<br/>
	<select name='name<%=Runtxt%>' value='0'>
                <option value="0">普通消息</option>
                <option value="1">系统消息</option>
                </select><br/>
	发送ID：<br/>
	<input emptyok="true"  name="lyid<%=Runtxt%>" value="1" type="text"/><br/>
	内容：<br/>
	<input emptyok="true"  name="nei<%=Runtxt%>" value="你好，欢迎访问本站，本站有你更精彩！" type="text"/><br/>
	<anchor>确定提交
    	<go href="addinfo.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="name" value="$(name<%=Runtxt%>)"/>
        <postfield name="nei" value="$(nei<%=Runtxt%>)"/>
        <postfield name="lyid" value="$(lyid<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
-------------<br/>
注意:提交一次,系统将会自动对每一个用户发送消息,没必要重复提交!<br/>
-------------<br/>
<a href='info.asp?sid=<%=sid%>'>返回消息管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,rs,sql,errs,id,nei,lyid,rst,sqlt,i
		name=Request.form("name")
		nei=Request.form("nei")
		lyid=Request.form("lyid")
    		id = Request("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		If id < 1 Then id = 1

		errs=""
		if name="" or nei="" or lyid="" then errs=errs & "关键名称不能为空<br/>"
	%>
	<card id="login" title="添加消息" ontimer="info.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then
		set rst=Server.CreateObject("ADODB.Recordset")
		Sqlt = "select id,name FROM qingtian_user order by id desc"
		rst.open sqlt,conn,1,1
                if not (rst.bof and rst.eof)  then
		For i=1 to rst.RecordCount
		If Rst.Eof Then
			exit For
		End If
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_info"
		rs.open sql,conn,1,3
		rs.addnew
			rs("name")=left(nei,15)&"....."
			rs("title")=nei
			rs("tid")=rst("id")
			rs("nid")=lyid
			rs("system")=name
			rs("ok")=1
			rs("isok")=1
		rs.update()
		rs.Close
		Set rs = Nothing
	 	Rst.MoveNext
	  	Next
                end if
		rst.Close
		Set rst = Nothing
		%>添加所有消息成功!<br/><a href="addinfo.asp?sid=<%=sid%>">返回继续添加</a><br/><%

	else%>
		<%=errs%>
		<a href="addinfo.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='info.asp?sid=<%=sid%>'>返回消息管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
